Option Explicit
Sub C_Sample041()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)					'Nï
    myWb.BuiltinDocumentProperties("Author").Value = "HIKARU"	']wW
    Set myWb = Nothing						'
End Sub

